home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 September / PCWorld_2002-09_cd.bin / Software / Vyzkuste / httrack / httrack-3.20RC4.exe / {app} / src / strip_cr.in < prev   
Text File  |  2001-01-11  |  773b  |  33 lines
  1. #!__PERL__
  2. # A simple script to convert DOS text files to
  3. # Unix one. Useful to strip all CR on .c and .h
  4. # sourcefiles.
  5. # Usage: strip_cr <files>
  6. foreach $fname (@ARGV) {
  7.   $ad=1;
  8.   if (open(FL,$fname)) {
  9.     if (open(FO,">".$fname.".tmp")) {
  10.       while(<FL>) {
  11.         s/\r\n$/\n/g;
  12.         print FO "$_";
  13.       }
  14.       close(FL);
  15.       close(FO);
  16.       if ((-s $fname) != (-s $fname.".tmp")) {
  17.         print("Stripping ".$fname."..\n");
  18.         rename($fname.".tmp",$fname);
  19.       } else {
  20.         unlink($fname.".tmp");
  21.       }
  22.     } else {
  23.       print "Unable to open ".$fname.".tmp\n";
  24.     }
  25.   } else {
  26.     print "Unable to open $fname\n";
  27.   }
  28. }
  29. if (!$ad) {
  30.   print "Ensure that a text file has no lines ended with CR (DOS)\n";
  31.   print "Usage: strip_cr <file>\n";
  32. }
  33.